home *** CD-ROM | disk | FTP | other *** search
- Program Example5;
- uses Crt;
-
- { Program to demonstrate the Window function. }
-
- begin
- ClrScr;
- WriteLn('Creating a window from 30,10 to 50,20');
- Window(30,10,50,20);
- WriteLn('We are now writing in this small window we just created, we '+
- 'can''t get outside it when writing long lines like this one');
- Write('Press any key to clear the window');
- ReadKey;
- ClrScr;
- Write('The window is cleared, press any key to restore to fullscreen');
- ReadKey;
- {Full Screen is 80x25}
- Window(1,1,80,25);
- Clrscr;
- Writeln('Back in Full Screen');
- end.
-